BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / A / AxoCalculator Packag1.1.sit / AxoCalculator Package / AxoCalculator Documentation / Programming in Pascal / Example Functions next >
MacBinary | 1993-02-02 | 5.6 KB | [TEXT/AxoC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Tue Feb 2 12:05:15 1993, modified Tue Feb 2 12:05:15 1993, creator 'AxoC', type ASCII, 2720 bytes "Example Functions" , at 0xb20 2720 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[AxoC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 45 78 61 6d 70 6c | 65 20 46 75 6e 63 74 69 |..Exampl|e Functi|
|00000010| 6f 6e 73 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ons.....|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 78 6f | 43 00 00 00 00 00 00 00 |.TEXTAxo|C.......|
|00000050| 00 00 00 00 00 0a a0 00 | 00 0a a0 a7 94 5a 4b a7 |........|.....ZK.|
|00000060| 94 5a 4b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.ZK.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 87 08 00 00 |........|........|
|00000080| 4c 6f 63 61 6c 4c 61 6e | 67 75 61 67 65 20 50 61 |LocalLan|guage Pa|
|00000090| 73 63 61 6c 0d 7b 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |scal.{ -|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 20 20 54 68 65 20 66 |--------|.  The f|
|000000d0| 6f 6c 6c 6f 77 69 6e 67 | 20 66 75 6e 63 74 69 6f |ollowing| functio|
|000000e0| 6e 73 20 64 65 6d 6f 6e | 73 74 72 61 74 65 20 76 |ns demon|strate v|
|000000f0| 61 72 69 6f 75 73 20 61 | 73 70 65 63 74 73 20 6f |arious a|spects o|
|00000100| 66 20 0d 20 20 41 78 6f | 43 61 6c 63 75 6c 61 74 |f .  Axo|Calculat|
|00000110| 6f 72 27 73 20 50 61 73 | 63 61 6c 20 70 72 6f 67 |or's Pas|cal prog|
|00000120| 72 61 6d 6d 69 6e 67 20 | 6c 61 6e 67 75 61 67 65 |ramming |language|
|00000130| 2e 20 0d 0d a5 20 20 54 | 6f 20 6c 6f 61 64 20 61 |. ...  T|o load a|
|00000140| 6c 6c 20 66 75 6e 63 74 | 69 6f 6e 73 2c 20 63 68 |ll funct|ions, ch|
|00000150| 6f 6f 73 65 20 22 53 65 | 6c 65 63 74 20 41 6c 6c |oose "Se|lect All|
|00000160| 22 20 0d 20 20 20 20 75 | 6e 64 65 72 20 74 68 65 |" .    u|nder the|
|00000170| 20 22 45 64 69 74 22 20 | 6d 65 6e 75 2c 20 74 68 | "Edit" |menu, th|
|00000180| 65 6e 20 70 72 65 73 73 | 20 22 65 6e 74 65 72 22 |en press| "enter"|
|00000190| 2e 20 0d 0d a5 20 20 54 | 6f 20 72 75 6e 20 61 20 |. ...  T|o run a |
|000001a0| 66 75 6e 63 74 69 6f 6e | 2c 20 74 79 70 65 20 69 |function|, type i|
|000001b0| 74 73 20 6e 61 6d 65 20 | 66 6f 6c 6c 6f 77 65 64 |ts name |followed|
|000001c0| 0d 20 20 20 20 62 79 20 | 61 6e 79 20 70 61 72 61 |.    by |any para|
|000001d0| 6d 65 74 65 72 73 2c 20 | 74 68 65 6e 20 70 72 65 |meters, |then pre|
|000001e0| 73 73 20 22 65 6e 74 65 | 72 22 2e 0d 0d a5 20 20 |ss "ente|r"....  |
|000001f0| 41 66 74 65 72 20 74 68 | 65 20 66 75 6e 63 74 69 |After th|e functi|
|00000200| 6f 6e 73 20 61 72 65 20 | 6c 6f 61 64 65 64 2c 20 |ons are |loaded, |
|00000210| 74 68 69 73 20 66 69 6c | 65 20 64 6f 65 73 20 0d |this fil|e does .|
|00000220| 20 20 20 20 6e 6f 74 20 | 6e 65 65 64 20 74 6f 20 |    not |need to |
|00000230| 72 65 6d 61 69 6e 20 6f | 70 65 6e 20 69 6e 20 6f |remain o|pen in o|
|00000240| 72 64 65 72 20 74 6f 20 | 75 73 65 20 74 68 65 6d |rder to |use them|
|00000250| 2e 0d 0d a5 20 20 48 65 | 72 65 20 61 72 65 20 73 |....  He|re are s|
|00000260| 6f 6d 65 20 65 78 61 6d | 70 6c 65 73 20 6f 66 20 |ome exam|ples of |
|00000270| 68 6f 77 20 74 6f 20 75 | 73 65 20 74 68 65 20 66 |how to u|se the f|
|00000280| 75 6e 63 74 69 6f 6e 73 | 2e 0d 0d 42 6f 78 56 6f |unctions|...BoxVo|
|00000290| 6c 75 6d 65 20 28 31 30 | 2c 31 35 2c 32 30 29 0d |lume (10|,15,20).|
|000002a0| 46 61 63 74 6f 72 69 61 | 6c 20 28 31 30 29 0d 52 |Factoria|l (10).R|
|000002b0| 65 63 75 72 73 69 76 65 | 46 61 63 74 20 28 31 30 |ecursive|Fact (10|
|000002c0| 29 0d 53 61 6d 65 42 69 | 72 74 68 44 61 74 65 50 |).SameBi|rthDateP|
|000002d0| 72 6f 62 28 32 35 29 0d | 0d 2d 2d 2d 2d 2d 2d 2d |rob(25).|.-------|
|000002e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 0d 0d 7b |--------|---}...{|
|00000310| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00000320| 2d 20 52 65 63 74 41 72 | 65 61 20 2d 2d 2d 2d 2d |- RectAr|ea -----|
|00000330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 20 |--------|------. |
|00000340| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 63 | This fu|nction c|
|00000350| 61 6c 63 75 6c 61 74 65 | 73 20 74 68 65 20 61 72 |alculate|s the ar|
|00000360| 65 61 20 6f 66 20 61 20 | 72 65 63 74 61 6e 67 6c |ea of a |rectangl|
|00000370| 65 0d 20 20 67 69 76 65 | 6e 20 69 74 73 20 68 65 |e.  give|n its he|
|00000380| 69 67 68 74 20 61 6e 64 | 20 77 69 64 74 68 2e 0d |ight and| width..|
|00000390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003c0| 2d 7d 0d 66 75 6e 63 74 | 69 6f 6e 20 52 65 63 74 |-}.funct|ion Rect|
|000003d0| 41 72 65 61 20 28 68 65 | 69 67 68 74 2c 20 77 69 |Area (he|ight, wi|
|000003e0| 64 74 68 29 0d 62 65 67 | 69 6e 0d 09 52 65 63 74 |dth).beg|in..Rect|
|000003f0| 41 72 65 61 20 3d 20 68 | 65 69 67 68 74 20 2a 20 |Area = h|eight * |
|00000400| 77 69 64 74 68 0d 65 6e | 64 0d 0d 7b 20 2d 2d 2d |width.en|d..{ ---|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 42 6f |--------|----- Bo|
|00000420| 78 56 6f 6c 75 6d 65 20 | 2d 2d 2d 2d 2d 2d 2d 2d |xVolume |--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 20 |--------|------. |
|00000440| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 63 | This fu|nction c|
|00000450| 61 6c 63 75 6c 61 74 65 | 73 20 74 68 65 20 76 6f |alculate|s the vo|
|00000460| 6c 75 6d 65 20 6f 66 20 | 61 20 62 6f 78 20 0d 20 |lume of |a box . |
|00000470| 20 67 69 76 65 6e 20 69 | 74 73 20 68 65 69 67 68 | given i|ts heigh|
|00000480| 74 2c 20 77 69 64 74 68 | 20 61 6e 64 20 64 65 70 |t, width| and dep|
|00000490| 74 68 2e 20 49 74 20 63 | 61 6c 6c 73 20 74 68 65 |th. It c|alls the|
|000004a0| 0d 20 20 66 75 6e 63 74 | 69 6f 6e 20 52 65 63 74 |.  funct|ion Rect|
|000004b0| 41 72 65 61 20 74 6f 20 | 67 65 74 20 74 68 65 20 |Area to |get the |
|000004c0| 61 72 65 61 20 6f 66 20 | 74 68 65 20 62 6f 74 74 |area of |the bott|
|000004d0| 6f 6d 20 6f 66 0d 20 20 | 74 68 65 20 62 6f 78 2c |om of.  |the box,|
|000004e0| 20 74 68 65 6e 20 6d 75 | 6c 74 69 70 6c 69 65 73 | then mu|ltiplies|
|000004f0| 20 74 68 65 20 72 65 73 | 75 6c 74 20 62 79 20 74 | the res|ult by t|
|00000500| 68 65 20 62 6f 78 20 64 | 65 70 74 68 2e 20 0d 2d |he box d|epth. .-|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000540| 7d 0d 66 75 6e 63 74 69 | 6f 6e 20 42 6f 78 56 6f |}.functi|on BoxVo|
|00000550| 6c 75 6d 65 20 28 68 65 | 69 67 68 74 2c 20 77 69 |lume (he|ight, wi|
|00000560| 64 74 68 2c 20 64 65 70 | 74 68 29 0d 62 65 67 69 |dth, dep|th).begi|
|00000570| 6e 0d 09 42 6f 78 56 6f | 6c 75 6d 65 20 3d 20 52 |n..BoxVo|lume = R|
|00000580| 65 63 74 41 72 65 61 20 | 28 68 65 69 67 68 74 2c |ectArea |(height,|
|00000590| 20 77 69 64 74 68 29 20 | 2a 20 64 65 70 74 68 0d | width) |* depth.|
|000005a0| 65 6e 64 0d 0d 7b 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |end..{ -|--------|
|000005b0| 2d 2d 2d 2d 2d 2d 2d 20 | 46 61 63 74 6f 72 69 61 |------- |Factoria|
|000005c0| 6c 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |l ------|--------|
|000005d0| 2d 2d 2d 2d 2d 0d 20 20 | 54 68 69 73 20 66 75 6e |-----.  |This fun|
|000005e0| 63 74 69 6f 6e 20 63 61 | 6c 63 75 6c 61 74 65 73 |ction ca|lculates|
|000005f0| 20 74 68 65 20 66 61 63 | 74 6f 72 69 61 6c 20 6f | the fac|torial o|
|00000600| 66 20 61 20 6e 75 6d 62 | 65 72 2e 0d 2d 2d 2d 2d |f a numb|er..----|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 66 75 6e |--------|---}.fun|
|00000640| 63 74 69 6f 6e 20 46 61 | 63 74 6f 72 69 61 6c 20 |ction Fa|ctorial |
|00000650| 28 6e 75 6d 62 65 72 29 | 0d 56 61 72 0d 09 66 20 |(number)|.Var..f |
|00000660| 3a 20 52 65 61 6c 0d 09 | 69 20 3a 20 49 6e 74 65 |: Real..|i : Inte|
|00000670| 67 65 72 0d 62 65 67 69 | 6e 0d 09 66 20 3d 20 31 |ger.begi|n..f = 1|
|00000680| 0d 09 46 6f 72 20 69 20 | 3d 20 31 20 74 6f 20 4e |..For i |= 1 to N|
|00000690| 75 6d 62 65 72 20 64 6f | 20 66 20 3d 20 66 20 2a |umber do| f = f *|
|000006a0| 20 69 0d 09 46 61 63 74 | 6f 72 69 61 6c 20 3d 20 | i..Fact|orial = |
|000006b0| 66 0d 65 6e 64 0d 0d 0d | 7b 20 2d 2d 2d 2d 2d 2d |f.end...|{ ------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 46 61 63 74 6f |--------|-- Facto|
|000006d0| 72 69 61 6c 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rial ---|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 20 20 54 68 69 73 20 |--------|.  This |
|000006f0| 66 75 6e 63 74 69 6f 6e | 20 61 6c 73 6f 20 63 61 |function| also ca|
|00000700| 6c 63 75 6c 61 74 65 73 | 20 74 68 65 20 66 61 63 |lculates| the fac|
|00000710| 74 6f 72 69 61 6c 20 6f | 66 20 61 20 6e 75 6d 62 |torial o|f a numb|
|00000720| 65 72 2c 0d 20 20 62 75 | 74 20 69 74 20 75 73 65 |er,.  bu|t it use|
|00000730| 73 20 61 20 72 65 63 75 | 72 73 69 76 65 20 61 6c |s a recu|rsive al|
|00000740| 67 6f 72 69 74 68 6d 2e | 20 54 68 69 73 20 61 70 |gorithm.| This ap|
|00000750| 70 72 6f 61 63 68 20 69 | 73 0d 20 20 69 6e 65 66 |proach i|s.  inef|
|00000760| 66 69 63 69 65 6e 74 2c | 20 62 75 74 20 64 65 6d |ficient,| but dem|
|00000770| 6f 6e 73 74 72 61 74 65 | 73 20 72 65 63 75 72 73 |onstrate|s recurs|
|00000780| 69 6f 6e 2e 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ion..---|--------|
|00000790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007b0| 2d 2d 2d 2d 7d 0d 66 75 | 6e 63 74 69 6f 6e 20 52 |----}.fu|nction R|
|000007c0| 65 63 75 72 73 69 76 65 | 46 61 63 74 20 28 6e 75 |ecursive|Fact (nu|
|000007d0| 6d 62 65 72 29 0d 62 65 | 67 69 6e 0d 09 69 66 20 |mber).be|gin..if |
|000007e0| 6e 75 6d 62 65 72 20 3e | 20 31 20 74 68 65 6e 0d |number >| 1 then.|
|000007f0| 09 09 52 65 63 75 72 73 | 69 76 65 46 61 63 74 20 |..Recurs|iveFact |
|00000800| 3d 20 6e 75 6d 62 65 72 | 20 2a 20 52 65 63 75 72 |= number| * Recur|
|00000810| 73 69 76 65 46 61 63 74 | 20 28 6e 75 6d 62 65 72 |siveFact| (number|
|00000820| 20 2d 20 31 29 0d 09 65 | 6c 73 65 0d 09 09 52 65 | - 1)..e|lse...Re|
|00000830| 63 75 72 73 69 76 65 46 | 61 63 74 20 3d 20 31 0d |cursiveF|act = 1.|
|00000840| 65 6e 64 0d 0d 0d 7b 20 | 2d 2d 2d 2d 2d 2d 2d 2d |end...{ |--------|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 20 53 61 6d 65 42 69 72 |--------| SameBir|
|00000860| 74 68 44 61 74 65 50 72 | 6f 62 20 2d 2d 2d 2d 2d |thDatePr|ob -----|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 20 |--------|------. |
|00000880| 20 54 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 63 | This fu|nction c|
|00000890| 61 6c 63 75 6c 61 74 65 | 73 20 74 68 65 20 70 72 |alculate|s the pr|
|000008a0| 6f 62 61 62 69 6c 69 74 | 79 20 74 68 61 74 20 74 |obabilit|y that t|
|000008b0| 77 6f 20 6f 72 20 6d 6f | 72 65 0d 20 20 70 65 6f |wo or mo|re.  peo|
|000008c0| 70 6c 65 20 69 6e 20 61 | 20 67 72 6f 75 70 20 68 |ple in a| group h|
|000008d0| 61 76 65 20 74 68 65 20 | 73 61 6d 65 20 62 69 72 |ave the |same bir|
|000008e0| 74 68 20 64 61 74 65 2c | 20 67 69 76 65 6e 20 74 |th date,| given t|
|000008f0| 68 65 0d 20 20 6e 75 6d | 62 65 72 20 6f 66 20 70 |he.  num|ber of p|
|00000900| 65 6f 70 6c 65 20 69 6e | 20 74 68 65 20 67 72 6f |eople in| the gro|
|00000910| 75 70 2e 20 49 74 20 77 | 6f 72 6b 73 20 62 79 20 |up. It w|orks by |
|00000920| 63 61 6c 63 75 6c 61 74 | 69 6e 67 0d 20 20 31 20 |calculat|ing.  1 |
|00000930| 2d 20 74 68 65 20 70 72 | 6f 62 61 62 69 6c 69 74 |- the pr|obabilit|
|00000940| 79 20 74 68 61 74 20 65 | 76 65 72 79 6f 6e 65 20 |y that e|veryone |
|00000950| 69 6e 20 74 68 65 20 67 | 72 6f 75 70 20 68 61 73 |in the g|roup has|
|00000960| 20 61 20 0d 20 20 64 69 | 66 66 65 72 65 6e 74 20 | a .  di|fferent |
|00000970| 62 69 72 74 68 20 64 61 | 74 65 2e 0d 2d 2d 2d 2d |birth da|te..----|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 66 75 6e |--------|---}.fun|
|000009b0| 63 74 69 6f 6e 20 53 61 | 6d 65 42 69 72 74 68 44 |ction Sa|meBirthD|
|000009c0| 61 74 65 50 72 6f 62 20 | 28 6e 75 6d 62 65 72 4f |ateProb |(numberO|
|000009d0| 66 50 65 6f 70 6c 65 29 | 0d 62 65 67 69 6e 0d 09 |fPeople)|.begin..|
|000009e0| 69 66 20 28 6e 75 6d 62 | 65 72 4f 66 50 65 6f 70 |if (numb|erOfPeop|
|000009f0| 6c 65 20 3c 20 32 29 20 | 74 68 65 6e 20 0d 09 09 |le < 2) |then ...|
|00000a00| 44 69 66 66 42 69 72 74 | 68 44 61 74 65 50 72 6f |DiffBirt|hDatePro|
|00000a10| 62 20 3d 20 31 0d 09 65 | 6c 73 65 20 0d 09 62 65 |b = 1..e|lse ..be|
|00000a20| 67 69 6e 0d 09 09 69 66 | 20 28 6e 75 6d 62 65 72 |gin...if| (number|
|00000a30| 4f 66 50 65 6f 70 6c 65 | 20 3e 20 33 36 35 29 20 |OfPeople| > 365) |
|00000a40| 74 68 65 6e 20 0d 09 09 | 09 44 69 66 66 42 69 72 |then ...|.DiffBir|
|00000a50| 74 68 44 61 74 65 50 72 | 6f 62 20 3d 20 30 0d 09 |thDatePr|ob = 0..|
|00000a60| 09 65 6c 73 65 0d 09 09 | 62 65 67 69 6e 0d 09 09 |.else...|begin...|
|00000a70| 09 44 69 66 66 42 69 72 | 74 68 44 61 74 65 50 72 |.DiffBir|thDatePr|
|00000a80| 6f 62 20 3d 20 31 0d 09 | 09 09 46 6f 72 20 69 20 |ob = 1..|..For i |
|00000a90| 3d 20 32 20 74 6f 20 6e | 75 6d 62 65 72 4f 66 50 |= 2 to n|umberOfP|
|00000aa0| 65 6f 70 6c 65 20 64 6f | 20 0d 09 09 09 09 44 69 |eople do| .....Di|
|00000ab0| 66 66 42 69 72 74 68 44 | 61 74 65 50 72 6f 62 20 |ffBirthD|ateProb |
|00000ac0| 3d 20 44 69 66 66 42 69 | 72 74 68 44 61 74 65 50 |= DiffBi|rthDateP|
|00000ad0| 72 6f 62 20 2a 20 28 33 | 36 36 2d 69 29 20 2f 20 |rob * (3|66-i) / |
|00000ae0| 33 36 35 0d 09 09 65 6e | 64 0d 09 65 6e 64 0d 09 |365...en|d..end..|
|00000af0| 53 61 6d 65 42 69 72 74 | 68 44 61 74 65 50 72 6f |SameBirt|hDatePro|
|00000b00| 62 20 3d 20 31 20 2d 20 | 44 69 66 66 42 69 72 74 |b = 1 - |DiffBirt|
|00000b10| 68 44 61 74 65 50 72 6f | 62 0d 65 6e 64 0d 0d 0d |hDatePro|b.end...|
|00000b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b80| 00 00 01 00 00 00 0a 32 | 00 00 09 32 00 00 00 6e |.......2|...2...n|
|00000b90| 01 72 90 41 67 28 30 2c | 01 7a 48 c0 20 53 d0 a8 |.r.Ag(0,|.zH. S..|
|00000ba0| 00 14 32 2c 00 e8 48 c1 | b2 80 6b 1e 32 2c 01 84 |..2,..H.|..k.2,..|
|00000bb0| 11 45 78 61 6d 70 6c 65 | 20 46 75 6e 63 74 69 6f |.Example| Functio|
|00000bc0| 6e 73 02 00 00 00 50 61 | 72 74 53 49 54 78 00 00 |ns....Pa|rtSITx..|
|00000bd0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 a9 80 15 fd 00 00 | 00 00 00 00 0a a0 00 b6 |........|........|
|00000c00| 22 00 02 80 00 00 00 08 | 66 28 4e ba e8 ec 4e ba |".......|f(N...N.|
|00000c10| 00 d6 67 1e 4e ba 12 ce | 66 14 20 53 20 28 00 b6 |..g.N...|f. S (..|
|00000c20| 02 80 00 00 00 02 67 0a | 4e ba 11 c2 60 04 4e ba |......g.|N...`.N.|
|00000c30| 17 86 4e 75 20 2c 03 a8 | 67 00 00 98 30 2c 03 bc |..Nu ,..|g...0,..|
|00000c40| 02 40 04 00 66 00 00 8c | 4e ba fd 14 66 00 00 84 |.@..f...|N...f...|
|00000c50| 20 50 a0 25 04 80 00 00 | 00 30 4e ba e4 58 20 2c | P.%....|.0N..X ,|
|00000c60| 00 86 22 2c 00 8a 02 81 | 00 00 00 04 66 36 22 6c |..",....|....f6"l|
|00000c70| 00 76 20 51 30 28 00 1c | 67 06 d0 fc 00 18 60 f4 |.v Q0(..|g.....`.|
|00000c80| 00 00 07 7e 00 00 00 00 | 00 00 00 00 01 00 06 47 |...~....|.......G|
|00000c90| 65 6e 65 76 61 00 00 00 | 00 00 00 00 00 00 00 00 |eneva...|........|
|00000ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cb0| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cc0| 00 00 00 00 00 00 00 00 | 00 15 00 00 00 00 01 00 |........|........|
|00000cd0| 06 47 65 6e 65 76 61 08 | 01 ef ff 70 7f ff 00 03 |.Geneva.|...p....|
|00000ce0| 01 ff fc d0 7f ff 01 f0 | 00 48 27 11 01 ef ff fc |........|.H'.....|
|00000cf0| 00 00 00 0c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 00 00 00 00 00 00 | 00 00 02 42 00 00 00 00 |........|...B....|
|00000d10| 01 00 06 47 65 6e 65 76 | 61 08 01 ef ff 70 7f ff |...Genev|a....p..|
|00000d20| 00 03 01 ff fc d0 7f ff | 01 f0 00 48 27 11 01 ef |........|...H'...|
|00000d30| ff fc 00 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 02 53 00 00 |........|.....S..|
|00000d50| 00 00 01 00 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 0c | 00 00 00 00 00 00 00 00 |........|........|
|00000d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 02 58 |........|.......X|
|00000d90| 00 00 00 00 01 00 06 47 | 65 6e 65 76 61 08 01 ef |.......G|eneva...|
|00000da0| ff 70 7f ff 00 03 01 ff | fc d0 7f ff 01 f0 00 48 |.p......|.......H|
|00000db0| 27 11 01 ef ff fc 00 00 | 00 0c 00 00 00 00 00 00 |'.......|........|
|00000dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000dd0| 07 36 00 00 00 00 01 00 | 06 47 65 6e 65 76 61 00 |.6......|.Geneva.|
|00000de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 0c 00 00 00 00 |........|........|
|00000e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e10| 00 00 07 3e 00 00 00 00 | 01 00 06 47 65 6e 65 76 |...>....|...Genev|
|00000e20| 61 08 01 ef ff 70 7f ff | 00 03 01 ff fc d0 7f ff |a....p..|........|
|00000e30| 01 f0 00 48 27 11 01 ef | ff fc 00 00 00 0c 00 00 |...H'...|........|
|00000e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e50| 00 00 00 00 07 3f 00 00 | 00 00 01 00 06 47 65 6e |.....?..|.....Gen|
|00000e60| 65 76 61 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |eva.....|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 0c |........|........|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e90| 00 00 00 00 00 00 07 4c | 00 00 00 00 01 00 06 47 |.......L|.......G|
|00000ea0| 65 6e 65 76 61 08 01 ef | ff 70 7f ff 00 03 01 ff |eneva...|.p......|
|00000eb0| fc d0 7f ff 01 f0 00 48 | 27 11 01 ef ff fc 00 00 |.......H|'.......|
|00000ec0| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ed0| 00 00 00 00 00 00 00 00 | 07 56 00 00 00 00 01 00 |........|.V......|
|00000ee0| 06 47 65 6e 65 76 61 00 | 00 00 00 00 00 00 00 00 |.Geneva.|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 00 0c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 00 00 07 c5 00 00 00 00 |........|........|
|00000f20| 01 00 06 47 65 6e 65 76 | 61 08 01 ef ff 70 7f ff |...Genev|a....p..|
|00000f30| 00 03 01 ff fc d0 7f ff | 01 f0 00 48 27 11 01 ef |........|...H'...|
|00000f40| ff fc 00 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 07 d9 00 00 |........|........|
|00000f60| 00 00 01 00 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f80| 00 00 00 00 00 00 00 0c | 00 00 00 00 00 00 00 00 |........|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 07 ea |........|........|
|00000fa0| 00 00 00 00 01 00 06 47 | 65 6e 65 76 61 08 01 ef |.......G|eneva...|
|00000fb0| ff 70 7f ff 00 03 01 ff | fc d0 7f ff 01 f0 00 48 |.p......|.......H|
|00000fc0| 27 11 01 ef ff fc 00 00 | 00 0c 00 00 00 00 00 00 |'.......|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 09 36 00 00 00 00 01 00 | 06 47 65 6e 65 76 61 00 |.6......|.Geneva.|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 00 00 00 00 00 00 | 00 00 00 0c 00 00 00 00 |........|........|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 00 00 09 47 00 00 00 00 | 01 00 06 47 65 6e 65 76 |...G....|...Genev|
|00001030| 61 08 01 ef ff 70 7f ff | 00 03 01 ff fc d0 7f ff |a....p..|........|
|00001040| 01 f0 00 48 27 11 01 ef | ff fc 00 00 00 0c 00 00 |...H'...|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 00 00 00 09 80 00 00 | 00 00 01 00 06 47 65 6e |........|.....Gen|
|00001070| 65 76 61 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |eva.....|........|
|00001080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 0c |........|........|
|00001090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010a0| 00 00 00 00 00 00 09 91 | 00 00 00 00 01 00 06 47 |........|.......G|
|000010b0| 65 6e 65 76 61 08 01 ef | ff 70 7f ff 00 03 01 ff |eneva...|.p......|
|000010c0| fc d0 7f ff 01 f0 00 48 | 27 11 01 ef ff fc 00 00 |.......H|'.......|
|000010d0| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010e0| 00 00 00 00 00 00 00 00 | 09 c9 00 00 00 00 01 00 |........|........|
|000010f0| 06 47 65 6e 65 76 61 00 | 00 00 00 00 00 00 00 00 |.Geneva.|........|
|00001100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001110| 00 00 00 0c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001120| 00 00 00 00 00 00 00 00 | 00 00 09 da 00 00 00 00 |........|........|
|00001130| 01 00 06 47 65 6e 65 76 | 61 08 01 ef ff 70 7f ff |...Genev|a....p..|
|00001140| 00 03 01 ff fc d0 7f ff | 01 f0 00 48 27 11 01 ef |........|...H'...|
|00001150| ff fc 00 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 09 f1 00 00 |........|........|
|00001170| 00 00 01 00 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001190| 00 00 00 00 00 00 00 0c | 00 00 00 00 00 00 00 00 |........|........|
|000011a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0a 02 |........|........|
|000011b0| 00 00 00 00 01 00 06 47 | 65 6e 65 76 61 08 01 ef |.......G|eneva...|
|000011c0| ff 70 7f ff 00 03 01 ff | fc d0 7f ff 01 f0 00 48 |.p......|.......H|
|000011d0| 27 11 01 ef ff fc 00 00 | 00 0c 00 00 00 00 00 00 |'.......|........|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 0a 2e 00 00 00 00 01 00 | 06 47 65 6e 65 76 61 00 |........|.Geneva.|
|00001200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001210| 00 00 00 00 00 00 00 00 | 00 00 00 0c 00 00 00 00 |........|........|
|00001220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001230| 00 00 0a 3f 00 00 00 00 | 01 00 06 47 65 6e 65 76 |...?....|...Genev|
|00001240| 61 08 01 ef ff 70 7f ff | 00 03 01 ff fc d0 7f ff |a....p..|........|
|00001250| 01 f0 00 48 27 11 01 ef | ff fc 00 00 00 0c 00 00 |...H'...|........|
|00001260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001270| 00 00 00 00 0a 42 00 00 | 00 00 01 00 06 47 65 6e |.....B..|.....Gen|
|00001280| 65 76 61 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |eva.....|........|
|00001290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 0c |........|........|
|000012a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012b0| 00 00 00 00 00 00 0a 53 | 00 00 00 00 01 00 06 47 |.......S|.......G|
|000012c0| 65 6e 65 76 61 08 01 ef | ff 70 7f ff 00 03 01 ff |eneva...|.p......|
|000012d0| fc d0 7f ff 01 f0 00 48 | 27 11 01 ef ff fc 00 00 |.......H|'.......|
|000012e0| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 00 00 00 | 0a 70 00 00 00 00 01 00 |........|.p......|
|00001300| 06 47 65 6e 65 76 61 00 | 00 00 00 00 00 00 00 00 |.Geneva.|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001320| 00 00 00 0c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 0a 81 00 00 00 00 |........|........|
|00001340| 01 00 06 47 65 6e 65 76 | 61 08 01 ef ff 70 7f ff |...Genev|a....p..|
|00001350| 00 03 01 ff fc d0 7f ff | 01 f0 00 48 27 11 01 ef |........|...H'...|
|00001360| ff fc 00 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 0a 88 00 00 |........|........|
|00001380| 00 00 01 00 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00001390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| 00 00 00 00 00 00 00 0c | 00 00 00 00 00 00 00 00 |........|........|
|000013b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 0a 99 |........|........|
|000013c0| 00 00 00 00 01 00 06 47 | 65 6e 65 76 61 08 01 ef |.......G|eneva...|
|000013d0| ff 70 7f ff 00 03 01 ff | fc d0 7f ff 01 f0 00 48 |.p......|.......H|
|000013e0| 27 11 01 ef ff fc 00 00 | 00 0c 00 00 00 00 00 00 |'.......|........|
|000013f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001400| 0a a4 00 00 01 12 06 47 | 65 6e 65 76 61 63 75 6c |.......G|enevacul|
|00001410| 61 74 6f 72 2d 31 80 00 | 00 00 00 00 00 1c 00 00 |ator-1..|........|
|00001420| cb 94 00 2d 00 05 01 1d | 01 a9 00 2a 00 03 01 dd |...-....|...*....|
|00001430| 02 7d 80 00 00 02 00 00 | 00 48 00 00 cd 30 00 0e |.}......|.H...0..|
|00001440| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 04 00 02 |........|........|
|00001450| 00 00 00 06 00 00 00 06 | 00 fd 00 00 00 22 00 00 |........|....."..|
|00001460| 01 9a 11 f4 22 2e ff f8 | b2 ac fe fc 57 c1 c0 01 |...."...|....W...|
|00001470| 67 20 42 67 48 6c ff 00 | 22 53 80 00 00 02 00 00 |g BgHl..|"S......|
|00001480| 00 18 00 00 00 b0 00 0a | 00 00 00 00 00 00 00 00 |........|........|
|00001490| 01 aa 80 20 00 00 00 00 | 00 4c 00 00 cb 30 7f fe |... ....|.L...0..|
|000014a0| 40 02 5f fa 50 0a 5f fa | 40 02 4d b2 4d b2 40 02 |@._.P._.|@.M.M.@.|
|000014b0| 4d b2 4d b2 40 02 4d b2 | 4d b2 40 02 7f fe 7f fe |M.M.@.M.|M.@.....|
|000014c0| 7f fe 7f fe 7f fe 7f fe | 7f fe 7f fe 7f fe 7f fe |........|........|
|000014d0| 7f fe 7f fe 7f fe 7f fe | 7f fe 7f fe 7f fe 80 00 |........|........|
|000014e0| 00 00 00 00 00 4c 00 00 | cb 28 7f fe 40 02 5f fa |.....L..|.(..@._.|
|000014f0| 50 0a 5f fa 40 02 4d b2 | 4d b2 40 02 4d b2 4d b2 |P._.@.M.|M.@.M.M.|
|00001500| 40 02 4d b2 4d b2 00 2e | 00 0c 00 00 00 00 00 00 |@.M.M...|........|
|00001510| 00 00 ff ff ff ff ff ff | 00 00 00 78 00 03 00 00 |........|...x....|
|00001520| 00 48 00 48 00 00 00 00 | 02 da 02 28 ff e1 ff e2 |.H.H....|...(....|
|00001530| 02 f9 02 46 03 47 05 28 | 03 fc 00 02 00 00 00 48 |...F.G.(|.......H|
|00001540| 00 48 00 00 00 00 02 da | 02 28 00 01 00 00 00 64 |.H......|.(.....d|
|00001550| 00 00 00 01 00 01 01 01 | 00 00 00 01 27 0f 00 01 |........|....'...|
|00001560| 00 01 00 00 00 00 00 00 | 00 00 00 00 00 00 00 02 |........|........|
|00001570| 00 19 01 90 00 00 00 00 | 00 40 00 00 00 00 00 00 |........|.@......|
|00001580| 00 00 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001590| 00 00 00 00 00 00 00 1a | 00 00 00 41 00 00 00 24 |........|...A...$|
|000015a0| 00 00 01 6c 00 00 01 ec | 00 12 00 00 00 00 09 24 |...l....|.......$|
|000015b0| 00 01 00 00 01 00 00 00 | 0a 32 00 00 09 32 00 00 |........|.2...2..|
|000015c0| 00 6e 01 8b a9 20 07 b8 | 00 00 00 1c 00 6e 00 03 |.n... ..|.....n..|
|000015d0| 57 53 46 4d 00 00 00 22 | 53 50 45 43 00 00 00 2e |WSFM..."|SPEC....|
|000015e0| 50 52 4e 54 00 00 00 3a | 41 53 52 54 00 00 00 46 |PRNT...:|ASRT...F|
|000015f0| 00 01 ff ff 00 00 00 00 | 00 00 00 00 00 01 ff ff |........|........|
|00001600| 00 00 07 82 00 00 00 00 | 00 01 ff ff 00 00 08 98 |........|........|
|00001610| 00 00 00 00 2e e5 ff ff | 00 00 09 14 01 8b f0 68 |........|.......h|
|00001620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+